home *** CD-ROM | disk | FTP | other *** search
/ Publication 10 / Publication_10_1996_High-Tech_de_Side_B.d64 / 3-d statistik (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  44 lines
  1. 0 rem*****************
  2. 1 rem* 3-d statistik *
  3. 2 rem*@1988 by rainer*
  4. 3 rem* teuber        *
  5. 4 rem* programmed at *
  6. 5 rem* 28.7.1988     *
  7. 6 rem*****************
  8. 8 poke53281,3:poke53280,5:poke54296,15:poke54283,0
  9. 9 s1=54279:s2=54280:h=54285:an=54283
  10. 10 printchr$(8):print"[147]         dadede's  3d-statistik":rem ** erklaerung **
  11. 11 print"[144]gebe nach jedem fragezeichen den wert,"
  12. 12 print"ein ',' und die 2-stellige z.b.
  13. 13 [153]"jahreszahl, gefolgt von 'return'  ein."
  14. 14 [153]"wenn man nach der zeichnung die 'f1'    taste  drueckt, kann"
  15. 15 [153]"man neue werte eingeben."
  16. 20 [143] ** eingabe **
  17. 25 [129]a[178]0[164]6
  18. 27 a$[178]""
  19. 30 [153][196](a[170]1)".";:[133]a$,ja$:[139]a$[178]""[167][153]"onon":[137]30
  20. 31 [139][195](ja$)[179]1[167]ja$[178]"  "
  21. 33 [139][195](ja$)[178]1[167]ja$[178]" "[170]ja$
  22. 34 [151]s1,207:[151]s2,34:[151]h,240:[151]an,17:[129]w[178]1[164]100:[130]:[151]an,0
  23. 35 [139][195](ja$)[177]2[167]ja$[178][202](ja$,1,2)
  24. 36 [151]an,0
  25. 50 a(a)[178][197](a$):ja$(a)[178][202](ja$,1,2)
  26. 60 [130]
  27. 78 [143] ** groesster wert **
  28. 80 g[178]a(0)
  29. 90 [129]b[178]1[164]7
  30. 100 [139]a(b)[177]g[167]g[178]a(b)
  31. 110 [130]
  32. 120 [143] > zeichnen <-
  33. 190 t[178][171]3:[153]"load"
  34. 195 d[178]0:t[178]t[170]5:[153]""[163]t)"stop"ja$(c)"waitstep"
  35. 200 a[178]a(c)[173](g[170]1e[171]37)[172]20
  36. 210 [153][163]t)"ononstop   wait":[151]an,33
  37. 220 [139]d[179]a[171]1[167]d[178]d[170]1:[137]210
  38. 225 [153][163]t)"onstep  waitstop":[151]an,0
  39. 226 [153][163]t[171]2)"onon"a(c)
  40. 230 [139]c[179]6[167]c[178]c[170]1:[137]195
  41. 400 [143]-> press key <-
  42. 500 [161]a$:[139]a$[179][177]"input"[167]500
  43. 510 [138]
  44.